home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 18 / fpc103.zip / QVIDEO.SEQ < prev    next >
Text File  |  1988-06-14  |  840b  |  29 lines
  1. \ QVIDEO.SEQ    Fast video routine LINKAGE.             by Tom Zimmer
  2.  
  3. comment:
  4.  
  5.   Set F-PC to use a very fast direct screen write routine called VIDEO-TYPE.
  6. This is incredibly fast, but does have at least one side effect. Types beyond
  7. the end of the right screen edge do NOT wrap properly. If you need to have
  8. type do a proper wrap at the right screen edge, specify SLOW below. This
  9. will cause all typing and emitting to go through a DOS WRITE operation.
  10.  
  11. comment;
  12.  
  13. DECIMAL
  14.  
  15. : QTYPE         ( A1 N1 --- )
  16.                 PRINTING @
  17.                 IF      (TYPE)
  18.                 ELSE    VIDEO-TYPE
  19.                 THEN    ;
  20.  
  21. : FAST          ( --- )
  22.                 ['] QTYPE     IS TYPE ;
  23.  
  24. : SLOW          ( --- )
  25.                 ['] (TYPE)    IS TYPE ;
  26.  
  27. FAST            \ Select the high speed video drivers.
  28.  
  29.